home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 01q.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-04  |  1015 b   |  42 lines
  1. on startMovie
  2.   global qtChan, gCursorReady, gMoviePlay
  3.   gCursorReady = 1
  4.   puppetSprite(46, 1)
  5.   gMoviePlay = 2
  6.   qtChan = 11
  7.   sprite(qtChan).volume = 256
  8.   cast("station").directToStage = 1
  9.   preLoad(qtChan - 1)
  10. end
  11.  
  12. on idle
  13.   global gCursorReady
  14.   if gCursorReady = 1 then
  15.     cursor(200)
  16.     checkCursors()
  17.     set the locH of sprite 46 to the mouseH
  18.     set the locV of sprite 46 to the mouseV
  19.     updateStage()
  20.   end if
  21. end
  22.  
  23. on checkCursors
  24.   global gMagCursor, gMoviePlay
  25.   set the castNum of sprite 46 to the number of member "curs1"
  26.   if rollOver(4) then
  27.     set the castNum of sprite 46 to the number of member "hotCursor"
  28.   end if
  29.   if rollOver(13) then
  30.     if gMoviePlay = 0 then
  31.       set the castNum of sprite 46 to the number of member "hotCursor"
  32.     else
  33.       set the castNum of sprite 46 to the number of member "nonCursor"
  34.     end if
  35.   end if
  36.   repeat with i = 20 to 22
  37.     if rollOver(i) then
  38.       set the castNum of sprite 46 to the number of member "hotCursor"
  39.     end if
  40.   end repeat
  41. end
  42.